Top 10k strings from Course Winner v3 Plus - Flat (1987)(Selec Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
9 "________________________________"
5 "________________________________":
3 COURSENO=0
3 C$(COURSENO);U$;" ";RACELENGTH;" ";G$:
3 (X$)<HORSE
3 "X to exit, ENTER to continue A number to change an entry ";x$:
3 "Press ENTER...";X$
3 "Press ENTER...";Q$:
2 X;"... ";:
2 V3=P(S(H)):
2 TTL=TTL+P(X)
2 STARS=P((S(H)))*Z
2 R$=K$(S(H),3
2 PROB=PROB*M(1
2 PROB=PROB*G(ODER+1
2 P(X)=P(X)*FACTOR
2 E$=F$(COURSENO)(1
2 B(COURSENO,X,1
2 );K$(S(H),3
2 );J$(B(COURSENO,X,1
2 );"calc form profit"
2 );"RATING":
2 "runner odds sp rating level"
2 "Y FOR YES ENTER FOR NO..";Q$:
2 "X to exit":
2 "Send to printer..Y/N..";Q$:
2 "Race Ref No please...";x$:
2 "RUNNER JKY TRNER TPM SPM":
2 "Press ENTER...";x$:
2 "Press ENTER...";X$:
2 "PRESS ENTER...";X$:
2 "PRESS ENTER...";X$
2 "CHANGE NUMBER...";X:
2 "A=add new name, C=change ";x$
2 " RUNNER(Wt) DRAW SP 1 2 3":
1 Y=B(COURSENO,X,2
1 Y=B(COURSENO,X,1
1 Y$(H,O)=I$
1 X;" ";J$(X):
1 V$=Y$(H,Z):
1 V$=G$+" ":
1 TTL=TTL+R(X)
1 TTL=TTL+E(X)
1 T$(X);" ";:
1 T$(LS);"ADDED = No.";LS:
1 T$(LASTT,15
1 T$(B(COURSENO,X,2
1 T
1 S(X)=K(X,9
1 S(X)=K(X,3
1 S(X)=K(X,2
1 S(X)=K(X,1
1 S(J)=S(J+1
1 S$="100-1"
1 RACELENGTH=K(3
1 RACELENGTH=0
1 RACELENGTH=
1 RACELENGTH<5
1 R(X)=R(X)*FACTOR
1 R Akehurst R Armstrong I Balding T Barron C Benstead J Berry J Bosley K Brassey C Brittain N Bycroft N Callaghan M Camocho H Candy H Cecil D Chapman P Cole L Cottrell L Cumani J Dunlop F Durr MH Easterby MW Easterby D Elsworth J Etherngtn T Fairhurst J Fitzgerld W Guest Miss S Hall R Hannon G Harwood P Haslam D Hyd Jones W Hern B Hills J Hindley R Hollinshd C Horgan R J Houghtn G Huffer A Jarvis P Kelleway D Laing G Lewis M McCormack B McMahon P Mitchell D Morley C Nelson S Norton W O'Gorman G P-Gordon M Prescot G Reverley P Rohan M Ryan D Smith K Stone M Stoute J Sutcliffe H Tho Jones C Thornton N Tinkler J Tree I Vickers P Walwyn J Watts R Whitaker R Williams J
1 PROB=PROB*M(
1 PROB=PROB*0.3
1 PREFERED=(HORSE-1
1 P(X)=P(X)*R(X)
1 P(X)=P(X)*E(X):
1 P(X)=P(X)*CORRECT
1 P(H)=P(H)*(1
1 O(X)=P(X):
1 O(S(J))<O(S(J+1
1 K$(HORSE,5
1 J$(LS);"ADDED = No.";LS:
1 J$(LASTJ,15
1 J
1 HORSE=HX+1
1 HORSE;" ";
1 H5 H5 H5 H5 L56 N N N L5F N H78 H5 N H678F H56S N N N H7GF N N N N H56S N H56S N L78S H5 H56S H567S N N H6 H7S
1 H$=F$(COURSENO)
1 G$=F$(COURSENO)(Y
1 G Baxter M Birch J Bleasedle N Carlisle W Carson S Cauthen L Charnock R Cochrane N Connorton P Cook K Darley G Duffield C Dwyer Pat Eddery Paul Eddery R P Elliott M Fry R Guest M Hills R Hills K Hodgson N Howe T Ives J Lowe A Mackay J Matthias A McGlone A Murray B Murray D Nicholls S Perks T Quinn J Reid M Richrdson P Robinson B Rouse C Rutter W Ryan A Shoults G Starkey W Swinburn M L Thomas B Thomson P Waldron S Webster S Whitworth T Williams M Wood
1 F$(LASTC,6
1 F$(COURSENO)="N"
1 F$(COURSENO)(X+1
1 F
1 E(X)=E(X)*FACTOR
1 DV=RACELENGTH:
1 DV=D(H,Z):
1 Created with Ramsoft MakeTZX
1 CW3
1 COURSENO=X
1 COURSENO=K(2
1 C$(LASTC,12
1 C$(COURSENO);U$;:
1 C$(COURSENO);")"
1 C$(COURSENO);" ";U$:
1 C !
1 B(LASTC,10
1 B(COURSENO,X,2
1 B
1 Ascot Ayr Bath Beverley Brighton Carlisle Catterick Chepstow Chester Doncaster Edinburgh Epsom Folkestone Goodwood Hamilton Haydock Kempton Leicester Lingfield Newbury Newcastle Newmarket (JNewmarket (RNottingham Pontefract Redcar Ripon Salisbury Sandown Thirsk Warwick Windsor Wolverhmptn Yarmouth York
1 =,0.000001
1 ;C$(COURSENO):
1 ;B(COURSENO,X,2
1 ;"________________________________"
1 ;"_______________________________"
1 ;"Todays going..";:
1 ;"NO RACE DETAILS KNOWN":
1 ;"NO COURSE HAS BEEN SELECTED":
1 ;"LOADING DATAFILES":
1 ;"INPUT RACE INFORMATION":
1 ;"Draw favoured..";:
1 ;"ANALYSING Please wait"
1 ;"(";K$(H,1
1 ;" ";C$(COURSENO)
1 ;" TRAINERS LISTED (MAX ";LASTT;")":
1 ;" Name JKY TRNER"
1 ;" JOCKEYS";
1 ;" JOCKEYS LISTED (MAX ";LASTJ;")":
1 ;" "
1 ;" "
1 ;" ":
1 ;" "
1 +(T(H)/100
1 )>(HORSE-1
1 )=RACELENGTH:
1 )=COURSENO:
1 )=COURSENO
1 )<PREFERED)
1 );T$(B(COURSENO,X,2
1 );"correction":
1 );"X....EXIT"
1 );"V....VIEW INFORMATION":
1 );"TRAINERS "
1 );"T....change/add to Trainers":
1 );"SAVE NEW INFO DATA FILES"
1 );"SAVE CURRENT RACE DATA":
1 );"S....SAVE new info to tape":
1 );"S....SAVE CURRENT RACE DATA"
1 );"P....PRICES":
1 );"NO RACE LOGGED":
1 );"N....LOG A NEW RACE"
1 );"LOAD RACE DATA":
1 );"LEADING JOCKEYS"
1 );"L....LOAD RACE DATA":
1 );"J....change/add to Jockeys":
1 );"I....INPUT RACE INFORMATION":
1 );"D....CHANGE JKY/TRNER DATA":
1 );"Copyright SELEC 1987":
1 );"COURSEWINNER V3 PLUS":
1 );"CHANGE TRAINERS":
1 );"CHANGE JOCKEYS/TRAINERS":
1 );"CHANGE JOCKEYS":
1 );"CHANGE JKY/TRNER INFO":
1 );"C....change course info":
1 );"C....COURSES":
1 );"B....ADJUST BIASING":
1 );"ANALYSIS":
1 );"ADJUST BIAS":
1 );"A....ANALYSE CURRENT DATA":
1 );"6...EXIT TO MENU"
1 );"5...VIEW INFORMATION":
1 );"4...SPEED FACTORS":
1 );"3...PRIZE MONEY/3 RACE FORM":
1 );"2...JKY/TRNER INFO":
1 );"1...DRAW/WT/PLACINGS":
1 );"*** LOG NEW RACE ***":
1 );"(";K$(H,1
1 )-PREFERED)
1 )+V(H,Z)/PV)
1 (X$)>LASTC)
1 (S(X)*HX/MO2):
1 (RACELENGTH)=F$(COURSENO)(X
1 (I$)<LASTT+1
1 (I$)<LASTJ+1
1 "m/d conversion...(X to EXIT)..":
1 "conversion complete":
1 "_______________________________":
1 "________"
1 "X to exit, ENTER to cont.";X$:
1 "X to exit, ENTER to cont ";X$
1 "X to exit ENTER to continue..";x$:
1 "Wt carried............ ";:
1 "WEIGHT CARRIED......(";I(7
1 "Value to winner........";:
1 "Type ref. numbers if represented":
1 "Type adjusted biasing":
1 "Type M for microdrive...":
1 "Total prize money........ ";:
1 "TYPE COURSE NUMBER...";X$:
1 "TOTAL PRIZE MONEY...(";I(1
1 "THREE RACE FORM.....(";I(3
1 "Seasons prize money...... ";:
1 "STALL EFFECT........(";I(10
1 "SPEED FACTOR 3......(";I(6
1 "SPEED FACTOR 2......(";I(5
1 "SPEED FACTOR 1......(";I(4
1 "SPEED FACTOR (";X;")... ";:
1 "SEASONS PRIZE MONEY.(";I(2
1 "Record/Play on tape..."
1 "Race time.....";U$
1 "Race length in furlongs....";A$:
1 "Press a key if prompted.."
1 "Press PLAY on tape..."
1 "Press ENTER...";Q$
1 "Please give leading TRAINER Nos.":
1 "Please give leading JOCKEY Nos.":
1 "Placing................";:
1 "Overweight..(lbs)..... ";:
1 "OUTING ";O:
1 "No. of outings.(max 3)... ";:
1 "Names of runners...(F to end)..."
1 "NOT KNOWN"
1 "NONE LOGGED)"
1 "Last three placings... ";:
1 "LEADING TRAINERS....(";I(9
1 "LEADING TRAINERS";
1 "LEADING JOCKEYS.....(";I(8
1 "Input details...":
1 "Going (F,GF,G,GS,S)....";:
1 "GOOD TO SOFT":
1 "GOOD TO FIRM":
1 "GOING..(F,G,S,GF,GS)...";G$:
1 "Enter speed rating (up to 3)":
1 "ENTER NEW NAME...";T$(X):
1 "ENTER NEW NAME...";T$(LS):
1 "ENTER NEW NAME...";J$(X):
1 "ENTER NEW NAME...";J$(LS):
1 "Draw.................. ";:
1 "Distance in furlongs...";:
1 "Course (number) please...";X$
1 "COURSE... ";
1 "CONVERTING...":
1 "Allowance...(lbs)..... ";:
1 "=CHANGED TO ";T$(X):
1 "=CHANGED TO ";J$(X):
1 "3 RACE FORM"
1 "(ENTER to leave unchanged)":
1 " LOADED":
1 " (Previous race will be erased)"
1 " ":